home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1997
/
HAM Radio 1997.iso
/
vcls
/
novtli
/
novtest.dfm
/
novtest.txt
Wrap
Text File
|
1996-04-08
|
5KB
|
253 lines
object Form1: TForm1
Left = 1
Top = 3
BorderStyle = bsDialog
Caption =
'Novell Transport Layer Interface Component testing (Delphi Versi' +
'on)'
ClientHeight = 450
ClientWidth = 630
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'System'
Font.Style = []
PixelsPerInch = 96
OnCreate = FormCreate
TextHeight = 16
object Label2: TLabel
Left = 15
Top = 204
Width = 30
Height = 16
Caption = 'Port:'
end
object Label5: TLabel
Left = 143
Top = 204
Width = 86
Height = 16
Caption = 'Data to send:'
end
object NovTLI1: TNovTLI
Left = 560
Top = 72
Width = 32
Height = 32
Port = 0
OnDataAvailable = NovTLI1DataAvailable
OnSessionClosed = NovTLI1SessionClosed
OnSessionAvailable = NovTLI1SessionAvailable
OnSessionConnected = NovTLI1SessionConnected
end
object Connect: TButton
Left = 8
Top = 8
Width = 81
Height = 33
Hint = 'Connect to the '#39'listening'#39' server'
Caption = 'Connect'
ParentShowHint = False
ShowHint = True
TabOrder = 3
OnClick = ConnectClick
end
object SendData: TButton
Left = 96
Top = 8
Width = 89
Height = 33
Hint = 'Send data to the server'
Caption = 'Send Data'
ParentShowHint = False
ShowHint = True
TabOrder = 4
OnClick = SendDataClick
end
object Listen: TButton
Left = 192
Top = 8
Width = 73
Height = 33
Hint = 'Establish a server environment and listen for client requests'
Caption = 'Listen'
ParentShowHint = False
ShowHint = True
TabOrder = 5
OnClick = ListenClick
end
object Close: TButton
Left = 272
Top = 8
Width = 65
Height = 33
Hint = 'Close the connection'
Caption = 'Close'
ParentShowHint = False
ShowHint = True
TabOrder = 6
OnClick = CloseClick
end
object Disconnect: TButton
Left = 344
Top = 8
Width = 105
Height = 33
Hint = 'Send a disconnect request to the partner'
Caption = 'Disconnect'
ParentShowHint = False
ShowHint = True
TabOrder = 7
OnClick = DisconnectClick
end
object CancelListen: TButton
Left = 456
Top = 8
Width = 105
Height = 33
Hint = 'Close the server connection and cancel client requests'
Caption = 'Cancel Listen'
ParentShowHint = False
ShowHint = True
TabOrder = 8
OnClick = CancelListenClick
end
object AddrOptions: TGroupBox
Left = 8
Top = 56
Width = 177
Height = 129
Caption = 'Addressing Options'
TabOrder = 9
object UseServerName: TRadioButton
Left = 16
Top = 32
Width = 145
Height = 25
Caption = 'Use ServerName'
ParentShowHint = False
ShowHint = True
TabOrder = 0
OnClick = UseServerNameClick
end
object UsePhysicalAddr: TRadioButton
Left = 16
Top = 72
Width = 153
Height = 25
Hint = 'Use the Physical addressing mechanisms instead of the ServerName'
Caption = 'Use Physical Addr'
ParentShowHint = False
ShowHint = True
TabOrder = 1
OnClick = UsePhysicalAddrClick
end
end
object Port: TEdit
Left = 63
Top = 200
Width = 65
Height = 25
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object Edit1: TEdit
Left = 239
Top = 200
Width = 377
Height = 25
Hint = 'Data to send to partner'
MaxLength = 255
ParentShowHint = False
ShowHint = True
TabOrder = 2
Text = 'The Quick Brown Fox Jumped Over The Lazy Dog 0123456789 Times'
end
object Memo1: TMemo
Left = 16
Top = 240
Width = 601
Height = 201
Hint = 'Output area'
ParentShowHint = False
ShowHint = True
TabOrder = 10
end
object NetNode: TGroupBox
Left = 200
Top = 128
Width = 417
Height = 57
Caption = 'Physical Addressing'
TabOrder = 11
object LabelNet: TLabel
Left = 8
Top = 24
Width = 26
Height = 16
Caption = 'Net:'
end
object LabelNode: TLabel
Left = 200
Top = 24
Width = 38
Height = 16
Caption = 'Node:'
end
object AddrNet: TEdit
Left = 40
Top = 20
Width = 145
Height = 25
MaxLength = 8
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object AddrNode: TEdit
Left = 248
Top = 20
Width = 153
Height = 25
MaxLength = 12
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
end
object GroupBox1: TGroupBox
Left = 200
Top = 56
Width = 417
Height = 65
Caption = 'Service Advertising Protocol (SAP)'
TabOrder = 12
object LabelServerName: TLabel
Left = 48
Top = 29
Width = 89
Height = 16
Caption = 'Server Name:'
end
object ServerName: TEdit
Left = 144
Top = 25
Width = 153
Height = 25
MaxLength = 8
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
end
object HelpButton: TButton
Left = 568
Top = 8
Width = 49
Height = 33
Caption = 'Help'
TabOrder = 13
OnClick = HelpButtonClick
end
end